|
1000
|
It is possible to clip the bar's caption to bar, when the time scale is changed
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "12/27/2000"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternBox
Set ComHeight of hoBar to 13
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" "This is a bit of text that get's clipped"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 4
Set ComItemBar of hoItems h "K1" OLEexBarToolTip to (ComItemBar(hoItems,h,"K1",OLEexBarCaption))
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" "This is a bit of text that is not clipped"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 1
Send Destroy to hoItems
End_Procedure
|
|
999
|
How can I change the color for all bars with the key matching a pattern
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 64
Send Destroy to hoChart1
Set ComDebug to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "B1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/17/2001" "B2" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "B4" Nothing
Set ComItemBar of hoItems 0 "<B*>" OLEexBarColor to 255
Send Destroy to hoItems
End_Procedure
|
|
998
|
How can I change the color for all bars in the same item with the key matching a pattern
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 64
Send Destroy to hoChart1
Set ComDebug to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "B1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/17/2001" "B2" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K4" Nothing
Set ComItemBar of hoItems h "<B*>" OLEexBarColor to 255
Send Destroy to hoItems
End_Procedure
|
|
997
|
How can I change the color for all bars in the same item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K4" Nothing
Set ComItemBar of hoItems h "<*>" OLEexBarColor to 255
Send Destroy to hoItems
End_Procedure
|
|
996
|
How can I write a special number for each date related to a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 32
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/13/2001" "1" Nothing
Send Destroy to hoItems
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voNotes
Get ComNotes of hoChart1 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFirstVisibleItem of hoItems1 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "N1" vItem "1" "" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComRelativePosition of hoNote to "S+2"
Set ComPartText of hoNote OLEexNoteStart to "4"
Set ComPartFixedWidth of hoNote OLEexNoteStart to 18
Set ComPartHOffset of hoNote OLEexNoteStart to -9
Set ComPartBackColor of hoNote OLEexNoteStart to (RGB(255,255,0))
Set ComShowLink of hoNote to OLEexNoteLinkHidden
Set ComPartVisible of hoNote OLEexNoteStart to True
Send Destroy to hoNote
Variant vItem1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComFirstVisibleItem of hoItems2 to vItem1
Send Destroy to hoItems2
Variant voNote1
Get ComAdd of hoNotes "N2" vItem1 "1" "" to voNote1
Handle hoNote1
Get Create (RefClass(cComNote)) to hoNote1
Set pvComObject of hoNote1 to voNote1
Set ComRelativePosition of hoNote1 to "S+3"
Set ComPartText of hoNote1 OLEexNoteStart to "4"
Set ComPartFixedWidth of hoNote1 OLEexNoteStart to 18
Set ComPartHOffset of hoNote1 OLEexNoteStart to -9
Set ComPartBackColor of hoNote1 OLEexNoteStart to (RGB(255,255,0))
Set ComShowLink of hoNote1 to OLEexNoteLinkHidden
Set ComPartVisible of hoNote1 OLEexNoteStart to True
Send Destroy to hoNote1
Variant vItem2
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComFirstVisibleItem of hoItems3 to vItem2
Send Destroy to hoItems3
Variant voNote2
Get ComAdd of hoNotes "N3" vItem2 "1" "" to voNote2
Handle hoNote2
Get Create (RefClass(cComNote)) to hoNote2
Set pvComObject of hoNote2 to voNote2
Set ComRelativePosition of hoNote2 to "S+4"
Set ComPartText of hoNote2 OLEexNoteStart to "5"
Set ComPartFixedWidth of hoNote2 OLEexNoteStart to 18
Set ComPartHOffset of hoNote2 OLEexNoteStart to -9
Set ComPartBackColor of hoNote2 OLEexNoteStart to (RGB(0,255,0))
Set ComShowLink of hoNote2 to OLEexNoteLinkHidden
Set ComPartVisible of hoNote2 OLEexNoteStart to True
Send Destroy to hoNote2
Variant vItem3
Variant voItems4
Get ComItems to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Get ComFirstVisibleItem of hoItems4 to vItem3
Send Destroy to hoItems4
Variant voNote3
Get ComAdd of hoNotes "N4" vItem3 "1" "" to voNote3
Handle hoNote3
Get Create (RefClass(cComNote)) to hoNote3
Set pvComObject of hoNote3 to voNote3
Set ComRelativePosition of hoNote3 to "S+5"
Set ComPartText of hoNote3 OLEexNoteStart to "5"
Set ComPartFixedWidth of hoNote3 OLEexNoteStart to 18
Set ComPartHOffset of hoNote3 OLEexNoteStart to -9
Set ComPartBackColor of hoNote3 OLEexNoteStart to (RGB(0,255,0))
Set ComShowLink of hoNote3 to OLEexNoteLinkHidden
Set ComPartVisible of hoNote3 OLEexNoteStart to True
Send Destroy to hoNote3
Variant vItem4
Variant voItems5
Get ComItems to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Get ComFirstVisibleItem of hoItems5 to vItem4
Send Destroy to hoItems5
Variant voNote4
Get ComAdd of hoNotes "N5" vItem4 "1" "" to voNote4
Handle hoNote4
Get Create (RefClass(cComNote)) to hoNote4
Set pvComObject of hoNote4 to voNote4
Set ComRelativePosition of hoNote4 to "S+6"
Set ComPartText of hoNote4 OLEexNoteStart to "8"
Set ComPartFixedWidth of hoNote4 OLEexNoteStart to 18
Set ComPartHOffset of hoNote4 OLEexNoteStart to -9
Set ComPartBackColor of hoNote4 OLEexNoteStart to (RGB(255,0,0))
Set ComShowLink of hoNote4 to OLEexNoteLinkHidden
Set ComPartVisible of hoNote4 OLEexNoteStart to True
Send Destroy to hoNote4
Variant vItem5
Variant voItems6
Get ComItems to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Get ComFirstVisibleItem of hoItems6 to vItem5
Send Destroy to hoItems6
Variant voNote5
Get ComAdd of hoNotes "Z" vItem5 "1" "" to voNote5
Handle hoNote5
Get Create (RefClass(cComNote)) to hoNote5
Set pvComObject of hoNote5 to voNote5
Set ComRelativePosition of hoNote5 to "E"
Set ComPartText of hoNote5 OLEexNoteStart to "4"
Set ComPartFixedWidth of hoNote5 OLEexNoteStart to 18
Set ComPartHOffset of hoNote5 OLEexNoteStart to -9
Set ComPartBackColor of hoNote5 OLEexNoteStart to (RGB(255,128,0))
Set ComPartCanMove of hoNote5 OLEexNoteStart to True
Set ComShowLink of hoNote5 to OLEexNoteLinkHidden
Set ComPartVisible of hoNote5 OLEexNoteStart to True
Send Destroy to hoNote5
Send Destroy to hoNotes
Send Destroy to hoChart1
Send ComEndUpdate
End_Procedure
|
|
995
|
How can I assign a note to be always in the center of the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "1" Nothing
Send Destroy to hoItems
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voNotes
Get ComNotes of hoChart2 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFirstVisibleItem of hoItems1 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "Note" vItem "1" "" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComRelativePosition of hoNote to 0.5
Set ComPartText of hoNote OLEexNoteStart to "note<br>center"
Set ComPartBackColor of hoNote OLEexNoteStart to (RGB(255,255,0))
Set ComPartVisible of hoNote OLEexNoteEnd to False
Set ComShowLink of hoNote to OLEexNoteLinkHidden
Send Destroy to hoNote
Send Destroy to hoNotes
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
994
|
How can I assign a note relative to the start of the bar, and let it be movable
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "1" Nothing
Send Destroy to hoItems
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voNotes
Get ComNotes of hoChart2 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFirstVisibleItem of hoItems1 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "Note" vItem "1" "" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComRelativePosition of hoNote to "S+1"
Set ComPartText of hoNote OLEexNoteStart to "<%d%>"
Set ComPartFixedWidth of hoNote OLEexNoteStart to 18
Set ComPartHOffset of hoNote OLEexNoteStart to 9
Set ComPartCanMove of hoNote OLEexNoteStart to True
Set ComPartBackColor of hoNote OLEexNoteStart to (RGB(255,255,0))
Set ComPartVisible of hoNote OLEexNoteEnd to False
Set ComShowLink of hoNote to OLEexNoteLinkHidden
Send Destroy to hoNote
Send Destroy to hoNotes
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
993
|
How can I associate a note relative to the start of the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "1" Nothing
Send Destroy to hoItems
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voNotes
Get ComNotes of hoChart2 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFirstVisibleItem of hoItems1 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "Note" vItem "1" "" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComRelativePosition of hoNote to "S+1"
Set ComPartText of hoNote OLEexNoteStart to "<%d%>"
Set ComPartFixedWidth of hoNote OLEexNoteStart to 18
Set ComPartHOffset of hoNote OLEexNoteStart to 9
Set ComPartBackColor of hoNote OLEexNoteStart to (RGB(255,255,0))
Set ComPartVisible of hoNote OLEexNoteEnd to False
Set ComShowLink of hoNote to OLEexNoteLinkHidden
Send Destroy to hoNote
Send Destroy to hoNotes
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
992
|
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "1" Nothing
Send Destroy to hoItems
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voNotes
Get ComNotes of hoChart2 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFirstVisibleItem of hoItems1 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "Note" vItem "1" "" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComRelativePosition of hoNote to "E-1"
Set ComPartText of hoNote OLEexNoteStart to "<%d%>"
Set ComPartFixedWidth of hoNote OLEexNoteStart to 18
Set ComPartHOffset of hoNote OLEexNoteStart to 9
Set ComPartVisible of hoNote OLEexNoteEnd to False
Set ComShowLink of hoNote to OLEexNoteLinkHidden
Send Destroy to hoNote
Send Destroy to hoNotes
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
991
|
How can I associate a note relative to the end of the bar, so if the bar is resized at the end, the not is moved accordingly
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "1" Nothing
Send Destroy to hoItems
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voNotes
Get ComNotes of hoChart2 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFirstVisibleItem of hoItems1 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "Note" vItem "1" "" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComRelativePosition of hoNote to 1
Set ComPartText of hoNote OLEexNoteStart to "End"
Set ComPartVisible of hoNote OLEexNoteEnd to False
Set ComShowLink of hoNote to OLEexNoteLinkHidden
Send Destroy to hoNote
Send Destroy to hoNotes
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
990
|
How can I hide a bar without removing it
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" "B1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/6/2001" "1/14/2001" "B2" Nothing
Send ComAddLink of hoItems "L1" (ComFindItem(hoItems,"Item 1",0,Nothing)) "B1" (ComFindItem(hoItems,"Item 2",0,Nothing)) "B2"
Set ComItemBar of hoItems (ComFirstVisibleItem(hoItems)) (ComFirstItemBar(hoItems,(ComFirstVisibleItem(hoItems)))) OLEexBarTransparent to 100
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
989
|
How can I align the caption in the note
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "1" Nothing
Send Destroy to hoItems
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voNotes
Get ComNotes of hoChart2 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFirstVisibleItem of hoItems1 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "N1" vItem "1" "" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComShowLink of hoNote to OLEexNoteLinkHidden
Set ComPartVisible of hoNote OLEexNoteEnd to False
Set ComPartText of hoNote OLEexNoteStart to "S <b><%dd%></b>"
Set ComPartFixedWidth of hoNote OLEexNoteStart to 48
Set ComPartAlignment of hoNote OLEexNoteStart to OLELeftAlignment
Set ComPartVOffset of hoNote OLEexNoteStart to 17
Send Destroy to hoNote
Variant vItem1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComFirstVisibleItem of hoItems2 to vItem1
Send Destroy to hoItems2
Variant voNote1
Get ComAdd of hoNotes "N2" vItem1 "1" "" to voNote1
Handle hoNote1
Get Create (RefClass(cComNote)) to hoNote1
Set pvComObject of hoNote1 to voNote1
Set ComRelativePosition of hoNote1 to 1
Set ComShowLink of hoNote1 to OLEexNoteLinkHidden
Set ComPartVisible of hoNote1 OLEexNoteEnd to False
Set ComPartText of hoNote1 OLEexNoteStart to "E <b><%dd%></b>"
Set ComPartFixedWidth of hoNote1 OLEexNoteStart to 48
Set ComPartAlignment of hoNote1 OLEexNoteStart to OLERightAlignment
Set ComPartVOffset of hoNote1 OLEexNoteStart to 17
Send Destroy to hoNote1
Send Destroy to hoNotes
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
988
|
How I can assign a note and let user move the note relative to the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "1" Nothing
Send Destroy to hoItems
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voNotes
Get ComNotes of hoChart2 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFirstVisibleItem of hoItems1 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "Note" vItem "1" "End" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComPartText of hoNote OLEexNoteStart to "Day<br> <%dd%>"
Set ComPartCanMove of hoNote OLEexNoteStart to True
Set ComPartVOffset of hoNote OLEexNoteStart to 16
Set ComPartTransparency of hoNote OLEexNoteStart to 30
Set ComPartToolTip of hoNote OLEexNoteStart to "Click the note and start moving to a new position."
Send Destroy to hoNote
Send Destroy to hoNotes
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
987
|
How can I assign a picture as a note associated with a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "pic2" to "c:\exontrol\images\auction.gif"
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "1" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/11/2001" "2" Nothing
Send Destroy to hoItems
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voNotes
Get ComNotes of hoChart2 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItemByIndex of hoItems1 0 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "1" vItem "1" "<img>pic1</img>" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComPartShadow of hoNote OLEexNoteEnd to False
Set ComPartBorderSize of hoNote OLEexNoteEnd to 0
Send ComClearPartBackColor of hoNote OLEexNoteEnd
Set ComPartHOffset of hoNote OLEexNoteEnd to -64
Set ComPartCanMove of hoNote OLEexNoteEnd to True
Send Destroy to hoNote
Variant vItem1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComItemByIndex of hoItems2 1 to vItem1
Send Destroy to hoItems2
Variant voNote1
Get ComAdd of hoNotes "2" vItem1 "2" "<img>pic2</img>" to voNote1
Handle hoNote1
Get Create (RefClass(cComNote)) to hoNote1
Set pvComObject of hoNote1 to voNote1
Set ComPartShadow of hoNote1 OLEexNoteEnd to False
Set ComPartBorderSize of hoNote1 OLEexNoteEnd to 0
Send ComClearPartBackColor of hoNote1 OLEexNoteEnd
Set ComRelativePosition of hoNote1 to 1
Set ComPartCanMove of hoNote1 OLEexNoteEnd to True
Set ComLinkColor of hoNote1 to (RGB(255,0,0))
Set ComLinkWidth of hoNote1 to 2
Set ComLinkStyle of hoNote1 to OLEexLinkDot
Set ComShowLink of hoNote1 to OLEexNoteLinkVisible
Send Destroy to hoNote1
Send Destroy to hoNotes
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
986
|
How can I assign a picture as a note associated with a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "1" Nothing
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/11/2001" "2" Nothing
Send Destroy to hoItems
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voNotes
Get ComNotes of hoChart2 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItemByIndex of hoItems1 0 to vItem
Send Destroy to hoItems1
Variant voNote
Get ComAdd of hoNotes "1" vItem "1" "<img>1</img>" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComPartShadow of hoNote OLEexNoteEnd to False
Set ComPartBorderSize of hoNote OLEexNoteEnd to 0
Send ComClearPartBackColor of hoNote OLEexNoteEnd
Send Destroy to hoNote
Variant vItem1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComItemByIndex of hoItems2 1 to vItem1
Send Destroy to hoItems2
Variant voNote1
Get ComAdd of hoNotes "2" vItem1 "2" "<img>2</img>...<img>3</img>" to voNote1
Handle hoNote1
Get Create (RefClass(cComNote)) to hoNote1
Set pvComObject of hoNote1 to voNote1
Set ComPartShadow of hoNote1 OLEexNoteEnd to False
Set ComPartBorderSize of hoNote1 OLEexNoteEnd to 0
Send ComClearPartBackColor of hoNote1 OLEexNoteEnd
Set ComRelativePosition of hoNote1 to 1
Set ComPartCanMove of hoNote1 OLEexNoteEnd to True
Set ComLinkColor of hoNote1 to (RGB(255,0,0))
Set ComLinkWidth of hoNote1 to 2
Set ComLinkStyle of hoNote1 to OLEexLinkDot
Send Destroy to hoNote1
Send Destroy to hoNotes
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
985
|
How can I put a box assigned to a DATE
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Get ComAddItem of hoItems "Item 2" to h
Send Destroy to hoItems
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voNotes
Get ComNotes of hoChart2 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFirstVisibleItem of hoItems1 to vItem
Send Destroy to hoItems1
Variant vKey
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Get ComFirstVisibleDate of hoChart3 to vKey
Send Destroy to hoChart3
Variant voNote
Get ComAdd of hoNotes "D1" vItem vKey "Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComPartCanMove of hoNote OLEexNoteEnd to True
Set ComPartVOffset of hoNote OLEexNoteEnd to 20
Set ComPartHOffset of hoNote OLEexNoteEnd to 20
Send Destroy to hoNote
Variant vItem1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant vItem2
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComFirstVisibleItem of hoItems3 to vItem2
Send Destroy to hoItems3
Get ComNextVisibleItem of hoItems2 vItem2 to vItem1
Send Destroy to hoItems2
Variant voNote1
Get ComAdd of hoNotes "D2" vItem1 "1/7/2001" "Date:<br><%dd%>/<%mm%><br><b><%yyyy%></b>" to voNote1
Handle hoNote1
Get Create (RefClass(cComNote)) to hoNote1
Set pvComObject of hoNote1 to voNote1
Set ComPartVisible of hoNote1 OLEexNoteStart to True
Set ComPartText of hoNote1 OLEexNoteStart to "<b><%d%></b>"
Set ComPartCanMove of hoNote1 OLEexNoteEnd to True
Set ComPartVOffset of hoNote1 OLEexNoteEnd to 20
Set ComPartHOffset of hoNote1 OLEexNoteEnd to 20
Send Destroy to hoNote1
Send Destroy to hoNotes
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
984
|
How can I add a note or a box associated with a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "1" "Center"
Set ComItemBar of hoItems h "1" OLEexBarExtraCaption to "left"
Set ComItemBar of hoItems h "1" OLEexBarExtraCaptionHAlign to 16
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/11/2001" "2" "Center"
Set ComItemBar of hoItems h "2" OLEexBarExtraCaption to "right"
Set ComItemBar of hoItems h "2" OLEexBarExtraCaptionHAlign to 18
Send Destroy to hoItems
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voNotes
Get ComNotes of hoChart2 to voNotes
Handle hoNotes
Get Create (RefClass(cComNotes)) to hoNotes
Set pvComObject of hoNotes to voNotes
Variant vItem
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFirstVisibleItem of hoItems1 to vItem
Send Destroy to hoItems1
Get ComAdd of hoNotes "1S" vItem "1" "Start" to Nothing
Variant vItem1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComFirstVisibleItem of hoItems2 to vItem1
Send Destroy to hoItems2
Variant voNote
Get ComAdd of hoNotes "1F" vItem1 "1" "End" to voNote
Handle hoNote
Get Create (RefClass(cComNote)) to hoNote
Set pvComObject of hoNote to voNote
Set ComRelativePosition of hoNote to 1
Send Destroy to hoNote
Send Destroy to hoNotes
Send Destroy to hoChart2
Send ComEndUpdate
End_Procedure
|
|
983
|
Is it possible to define different working hours for every week day
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 14
Set ComNonworkingDays of hoChart to 0
Set ComNonworkingHours of hoChart to 0
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComAlignment of hoLevel to OLECenterAlignment
Set ComLabel of hoLevel to "<%dddd%>"
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%hh%>"
Set ComCount of hoLevel1 to 6
Send Destroy to hoLevel1
Set ComUnitWidth of hoChart to 16
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 1 to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) != 1 or (weekday(value) = 1 and not ( hour(value) >= 9 and hour(value) <= 14 ))"
Get ComAddItem of hoItems 2 to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) = 2 and ( hour(value) >= 9 and hour(value) <= 14 )"
Get ComAddItem of hoItems 3 to h
Set ComItemNonworkingUnits of hoItems h False to "weekday(value) = 3"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
982
|
How can I automatically update the exBarPercent value using a slider control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Set ComPaneWidth of hoChart False to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task%Progress" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Percent"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Percent" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 518
Set ComDef of hoColumn OLEexCellValueToItemBarKey to "P"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant i
Get ComAddItem of hoItems1 0 to i
Set ComCellBold of hoItems1 i 0 to True
Variant voEditor
Get ComCellEditor of hoItems1 i 0 to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESliderType
Send Destroy to hoEditor
Send ComAddBar of hoItems1 i "Percent" "1/2/2002" "1/6/2002" "P" Nothing
Set ComItemBar of hoItems1 i "P" OLEexBarShowPercentCaption to True
Set ComCellValue of hoItems1 i 0 to 50
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
981
|
Is there any automatic way to change a property for all bars in the chart
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K2" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K4" Nothing
Set ComItemBar of hoItems 0 "<*>" OLEexBarColor to 255
Send Destroy to hoItems
End_Procedure
|
|
980
|
How can I assign an icon to a bar and I get notified when I click it
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/10/2001" "" "Caption"
Set ComItemBar of hoItems h "" OLEexBarExtraCaption to "<a1><img>1:8</img></a><a1><img>2</img></a>"
Set ComItemBar of hoItems h "" OLEexBarExtraCaptionHAlign to 16
Set ComItemBar of hoItems h "" OLEexBarExtraCaptionHOffset to 5
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
979
|
How can I assign an icon to a bar so I do not break its caption
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/10/2001" "" "Caption"
Set ComItemBar of hoItems h "" OLEexBarExtraCaption to "<img>1</img>"
Set ComItemBar of hoItems h "" OLEexBarExtraCaptionHAlign to 16
Set ComItemBar of hoItems h "" OLEexBarExtraCaptionHOffset to 5
Set ComItemBar of hoItems h "" OLEexBarExtraCaptionVOffset to 2
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
978
|
How can I assign multiple lables to the same bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/5/2001" "1/7/2001" "" "Right"
Set ComItemBar of hoItems h1 "" OLEexBarHAlignCaption to 18
Send ComAddBar of hoItems h1 "" "1/5/2001" "1/5/2001" "T1" "Left"
Set ComItemBar of hoItems h1 "T1" OLEexBarHAlignCaption to 16
Send ComAddBar of hoItems h1 "" "1/5/2001" "1/7/2001" "T2" "Center"
Send ComGroupBars of hoItems h1 "" True h1 "T1" True Nothing Nothing
Send ComGroupBars of hoItems h1 "" True h1 "T1" False Nothing Nothing
Send ComGroupBars of hoItems h1 "" True h1 "T2" True Nothing Nothing
Send ComGroupBars of hoItems h1 "" False h1 "T2" False Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
977
|
Is there any way to have more Captions on a bar than one
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/5/2001" "1/7/2001" "" "Right"
Set ComItemBar of hoItems h1 "" OLEexBarHAlignCaption to 18
Send ComAddBar of hoItems h1 "" "1/5/2001" "1/5/2001" "T1" "Left"
Set ComItemBar of hoItems h1 "T1" OLEexBarHAlignCaption to 16
Send ComGroupBars of hoItems h1 "" True h1 "T1" True Nothing Nothing
Send ComGroupBars of hoItems h1 "" True h1 "T1" False Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
976
|
How can I assign multiple lables to the same bar at once
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 96
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/8/2001" "" "Center"
Set ComItemBar of hoItems h "" OLEexBarExtraCaption to "left"
Set ComItemBar of hoItems h "" OLEexBarExtraCaptionHAlign to 16
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/11/2001" "" "Center"
Set ComItemBar of hoItems h "" OLEexBarExtraCaption to "right"
Set ComItemBar of hoItems h "" OLEexBarExtraCaptionHAlign to 18
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
975
|
How can I limit the duration or length of the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComScrollRange of hoChart1 OLEexStartDate to "1/1/2001"
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComScrollRange of hoChart2 OLEexEndDate to "1/7/2001"
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComPaneWidth of hoChart3 False to 128
Send Destroy to hoChart3
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarMinDuration to 2
Set ComItemBar of hoItems h "" OLEexBarMaxDuration to 5
Set ComItemBar of hoItems h "" OLEexBarCaption to "Min=2 / Max=5"
Set ComItemBar of hoItems h "" OLEexBarHAlignCaption to 18
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
974
|
I have an EBN file how can I apply different colors to it, so no need to create a new one
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComSelBackColor to (ComBackColor(Self))
Set ComSelForeColor to (ComForeColor(Self))
Set ComHasLines to OLEexNoLine
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Variant hC
Get ComInsertItem of hoItems h "Default" to hC
Set ComItemBackColor of hoItems hC to |CI$1000000
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Light Green" to hC
Set ComItemBackColor of hoItems hC to |CI$100ff00
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComItemBackColor of hoChart hC to |CI$100ff00
Send Destroy to hoChart
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Dark Green" to hC
Set ComItemBackColor of hoItems hC to |CI$1007f00
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Magenta" to hC
Set ComItemBackColor of hoItems hC to |CI$1ff7fff
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Yellow" to hC
Set ComItemBackColor of hoItems hC to |CI$17fffff
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
973
|
I need to specify the non-working hours for about 100 days for each item, but the scrolling is very slow. Is there any option to increase the speed
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowChartScrollPage to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Non-Work" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "4/4/2009 4:00:00 PM"
Set ComPaneWidth of hoChart False to 52
Set ComLevelCount of hoChart to 2
Set ComUnitWidth of hoChart to 16
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<r><%d%>-<%mmm%>"
Set ComUnit of hoLevel to OLEexDay
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%hh%>"
Set ComUnit of hoLevel1 to OLEexHour
Set ComCount of hoLevel1 to 2
Send Destroy to hoLevel1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Default" to Nothing
Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"Test")) False to ("date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 12; #4/6/2009# : hour(value) >= 6 and hour(value) <= 12; #4/7/2009# : hour(value) >= 6 and hour(value) <= 12; #4/8/2009# : hour(value) >= 6 and hour(value) <= 12; #4/9/2009# : hour(value) >= 6 and hour(value) <= 12; #4/10/2009# : hour(value) >= 6 and hour(value) <= 12; #4/11/2009# : hour(value) >= 6 and hour(value) <= 12; #4/12/2009# : hour(value) >= 6 and hour(value) <= 12; #4/13/2009# : hour(value) >= 6 and hour(value) <= 12; #4/14/2009# : hour(value) >= 6 and hour(value) <= 12; #4/15/2009# : hour(value) >= 6 and hour(value) <= 12; #4/16/2009# : hour(value) >= 6 and hour(value) <= 12; #4/17/2009# : hour(value) >= 6 and hour(value) <= 12; #4/18/2009# : hour(value) >= 6 and hour(value) <= 12; #4/19/2009# : hour(value) >= 6 and hour(value) <= 12; #4/20/2009# : hour(value) >= 6 and hour(value) <= 12; #4/21/2009# : hour(value) >= 6 and hour(value) <= 12; #4/22/2009# : hour(value) >= 6 and hour(value) <= 12; #4/23/2009# : hour(value) >= 6 and hour(value) <= 12; #4/24/2009# : hour(value) >= 6 and hour(value) <= 12; #4/25/2009# : hour(value) >= 6 and hour(value) <= 12; #4/26/2009# : hour(value) >= 6 and hour(value) <= 12; #4/27/2009# : hour(value) >= 6 and hour(value) <= 12; #4/28/2009# : hour(value) >= 6 and hour(value) <= 12; #4/29/2009# : hour(value) >= 6 and hour(value) <= 12; #4/30/2009# : hour(value) >= 6 and hour(value) <= 12; #5/1/2009# : hour(value) >= 6 and hour(value) <= 12; #5/2/2009# : hour(value) >= 6 and hour(value) <= 12; #5/3/2009# : hour(value) >= 6 and hour(value) <= 12; #5/4/2009# : hour(value) >= 6 and hour(value) <= 12; #5/5/2009# : hour(value) >= 6 and hour(value) <= 12; #5/6/2009# : hour(value) >= 6 and hour(value) <= 12; #5/7/2009# : hour(value) >= 6 and hour(value) <= 12; #5/8/2009# : hour(value) >= 6 and hour(value) <= 12; #5/9/2009# : hour(value) >= 6 and hour(value) <= 12; #5/10/2009# : hour(value) >= 6 and hour(value) <= 12; #5/11/2009# : hour(value) >= 6 and hour(value) <= 12; #5/13/2009# : hour(value)" + ;
" >= 6 and hour(value) <= 12; #5/14/2009# : hour(value) >= 6 and hour(value) <= 12; #5/15/2009# : hour(value) >= 6 and hour(value) <= 12; #5/16/2009# : hour(value) >= 6 and hour(value) <= 12; #5/17/2009# : hour(value) >= 6 and hour(value) <= 12; #5/18/2009# : hour(value) >= 6 and hour(value) <= 12; #5/19/2009# : hour(value) >= 6 and hour(value) <= 12; #5/20/2009# : hour(value) >= 6 and hour(value) <= 12; #5/21/2009# : hour(value) >= 6 and hour(value) <= 12; #5/22/2009# : hour(value) >= 6 and hour(value) <= 12; #5/23/2009# : hour(value) >= 6 and hour(value) <= 12; #5/24/2009# : hour(value) >= 6 and hour(value) <= 12; #5/25/2009# : hour(value) >= 6 and hour(value) <= 12; #5/26/2009# : hour(value) >= 6 and hour(value) <= 12; #5/27/2009# : hour(value) >= 6 and hour(value) <= 12; #5/28/2009# : hour(value) >= 6 and hour(value) <= 12; #5/29/2009# : hour(value) >= 6 and hour(value) <= 12; #5/30/2009# : hour(value) >= 6 and hour(value) <= 12; #5/31/2009# : hour(value) >= 6 and hour(value) <= 12; #6/1/2009# : hour(value) >= 6 and hour(value) <= 12; #6/2/2009# : hour(value) >= 6 and hour(value) <= 12; #6/3/2009# : hour(value) >= 6 and hour(value) <= 12; #6/4/2009# : hour(value) >= 6 and hour(value) <= 12; #6/5/2009# : hour(value) >= 6 and hour(value) <= 12; #6/6/2009# : hour(value) >= 6 and hour(value) <= 12; #6/7/2009# : hour(value) >= 6 and hour(value) <= 12; #6/8/2009# : hour(value) >= 6 and hour(value) <= 12; #6/9/2009# : hour(value) >= 6 and hour(value) <= 12; #6/10/2009# : hour(value) >= 6 and hour(value) <= 12; #6/11/2009# : hour(value) >= 6 and hour(value) <= 12; #6/12/2009# : hour(value) >= 6 and hour(value) <= 12; #6/13/2009# : hour(value) >= 6 and hour(value) <= 12; #6/14/2009# : hour(value) >= 6 and hour(value) <= 12; #6/15/2009# : hour(value) >= 6 and hour(value) <= 12; #6/16/2009# : hour(value) >= 6 and hour(value) <= 12; #6/17/2009# : hour(value) >= 6 and hour(value) <= 12; #6/18/2009# : hour(value) >= 6 and hour(value) <= 12; #6/19/2009# : hour(value) >= 6 and hour(value) <= 12; #6/21/2009# : hour(value) >= 6" + ;
" and hour(value) <= 12; #6/22/2009# : hour(value) >= 6 and hour(value) <= 12; #6/23/2009# : hour(value) >= 6 and hour(value) <= 12; #6/24/2009# : hour(value) >= 6 and hour(value) <= 12; #6/25/2009# : hour(value) >= 6 and hour(value) <= 12; #6/26/2009# : hour(value) >= 6 and hour(value) <= 12; #6/27/2009# : hour(value) >= 6 and hour(value) <= 12; #6/28/2009# : hour(value) >= 6 and hour(value) <= 12; #6/29/2009# : hour(value) >= 6 and hour(value) <= 12; #6/30/2009# : hour(value) >= 6 and hour(value) <= 12; #7/1/2009# : hour(value) >= 6 and hour(value) <= 12; #7/2/2009# : hour(value) >= 6 and hour(value) <= 12; #7/3/2009# : hour(value) >= 6 and hour(value) <= 12; #7/4/2009# : hour(value) >= 6 and hour(value) <= 12; #7/5/2009# : hour(value) >= 6 and hour(value) <= 12; #7/6/2009# : hour(value) >= 6 and hour(value) <= 12; #7/7/2009# : hour(value) >= 6 and hour(value) <= 12; #7/8/2009# : hour(value) >= 6 and hour(value) <= 12; #7/9/2009# : hour(value) >= 6 and hour(value) <= 12; #7/10/2009# : hour(value) >= 6 and hour(value) <= 12; #7/11/2009# : hour(value) >= 6 and hour(value) <= 12; #7/12/2009# : hour(value) >= 6 and hour(value) <= 12; #7/13/2009# : hour(value) >= 6 and hour(value) <= 12; #7/14/2009# : hour(value) >= 6 and hour(value) <= 12)")
Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"Test")) False to ("date(shortdate(value)) case(default:0;#4/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/28/2009# : hour(value) >= 6 and h" + ;
"our(value) <= 10 or hour(value) in (16,17,20,21); #4/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #4/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/16/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/20/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/23/2009# : hour(value) >= " + ;
"6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #5/31/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/11/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/15/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/16/2009# : hour(val" + ;
"ue) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/17/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/18/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/19/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/21/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/22/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/23/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/24/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/25/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/26/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/27/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/28/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/29/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #6/30/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/1/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/2/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/3/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/4/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/5/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/6/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/7/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/8/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/9/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/10/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/11/2009# : h" + ;
"our(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/12/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/13/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21); #7/14/2009# : hour(value) >= 6 and hour(value) <= 10 or hour(value) in (16,17,20,21))")
Get ComAddItem of hoItems "Default" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
972
|
How can I use the CASE statement (CASE usage)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Value" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 24
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "CASE - statment" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComComputedField of hoColumn1 to "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
Set ComToolTip of hoColumn1 to (ComComputedField(hoColumn1))
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
971
|
How can I use the CASE statement (CASE usage)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Value" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 24
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "CASE - statment" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComComputedField of hoColumn1 to "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
Set ComToolTip of hoColumn1 to (ComComputedField(hoColumn1))
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
970
|
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Value" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 24
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "SWITCH - statment" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComComputedField of hoColumn1 to "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
Set ComToolTip of hoColumn1 to (ComComputedField(hoColumn1))
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
969
|
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Value" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 24
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "IN - statment" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComComputedField of hoColumn1 to "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
Set ComToolTip of hoColumn1 to (ComComputedField(hoColumn1))
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
968
|
How can I automatically update the exBarPercent value using a slider control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Set ComPaneWidth of hoChart False to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task%Progress" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Percent"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Percent" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 12
Set ComDef of hoColumn OLEexCellValueToItemBarKey to "P"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant i
Get ComAddItem of hoItems1 0 to i
Set ComCellBold of hoItems1 i 0 to True
Variant voEditor
Get ComCellEditor of hoItems1 i 0 to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESliderType
Set ComOption of hoEditor OLEexSliderStep to 0.01
Set ComOption of hoEditor OLEexSpinStep to 0.01
Set ComOption of hoEditor OLEexSliderMax to 1
Set ComOption of hoEditor OLEexSliderWidth to -100
Send Destroy to hoEditor
Set ComCellValueFormat of hoItems1 i 0 to OLEexHTML
Send ComAddBar of hoItems1 i "Percent" "1/2/2002" "1/6/2002" "P" Nothing
Set ComItemBar of hoItems1 i "P" OLEexBarShowPercentCaption to True
Set ComCellValue of hoItems1 i 0 to 0.5
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
967
|
How can I automatically update the exBarPercent value using a spin control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Set ComPaneWidth of hoChart False to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task%Progress" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Percent"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Percent" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 12
Set ComFormatColumn of hoColumn to "((0:=round(dbl(%0)*100)) >= 50 ? '<font 8>'+ =:0 + '%</font>' : '<fgcolor=808080><font 6>'+ =:0 + '%</font></fgcolor>')"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant i
Get ComAddItem of hoItems1 0 to i
Set ComCellBold of hoItems1 i 0 to True
Variant voEditor
Get ComCellEditor of hoItems1 i 0 to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Set ComOption of hoEditor OLEexSpinStep to 0.01
Set ComOption of hoEditor OLEexSliderMax to 1
Send Destroy to hoEditor
Set ComCellValueFormat of hoItems1 i 0 to OLEexHTML
Send ComAddBar of hoItems1 i "Percent" "1/2/2002" "1/6/2002" Nothing Nothing
Set ComCellValue of hoItems1 i 0 to 0.5
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
966
|
How do I specify for an item all units as being non-working units
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowChartScrollPage to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Non-Work" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComFirstVisibleDate of hoChart to "4/3/2009 10:00:00 AM"
Set ComPaneWidth of hoChart False to 64
Set ComLevelCount of hoChart to 2
Set ComUnitWidth of hoChart to 16
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<r><%d%>-<%mmm%>"
Set ComUnit of hoLevel to OLEexDay
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%hh%>"
Set ComUnit of hoLevel1 to OLEexHour
Set ComCount of hoLevel1 to 2
Send Destroy to hoLevel1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Default" to Nothing
Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"All-Non-Working")) False to "1"
Get ComAddItem of hoItems "Default" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
965
|
How do I specify for an item all units as being working units
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowChartScrollPage to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Non-Work" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComFirstVisibleDate of hoChart to "4/3/2009 10:00:00 AM"
Set ComPaneWidth of hoChart False to 64
Set ComLevelCount of hoChart to 2
Set ComUnitWidth of hoChart to 16
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<r><%d%>-<%mmm%>"
Set ComUnit of hoLevel to OLEexDay
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%hh%>"
Set ComUnit of hoLevel1 to OLEexHour
Set ComCount of hoLevel1 to 2
Send Destroy to hoLevel1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Default" to Nothing
Set ComItemNonworkingUnits of hoItems (ComAddItem(hoItems,"All-Working")) False to "0"
Get ComAddItem of hoItems "Default" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
964
|
How can I programmatically specify different non-working units ( days, hours ) for different items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowChartScrollPage to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Non-Work" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Send Destroy to hoBars
Set ComFirstVisibleDate of hoChart to "7/13/2009 12:00:00 PM"
Set ComPaneWidth of hoChart False to 52
Set ComLevelCount of hoChart to 2
Set ComUnitWidth of hoChart to 16
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<r><b><%d%></b> <%mmm%> <%yyyy%>"
Set ComUnit of hoLevel to OLEexDay
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%hh%>"
Set ComUnit of hoLevel1 to OLEexHour
Set ComCount of hoLevel1 to 2
Send Destroy to hoLevel1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Set ComItemNonworkingUnits of hoItems h False to "(shortdate(value) = #7/14/2009# and hour(value) >= 6 and hour(value) <= 12)"
Send ComAddBar of hoItems h "Task" "7/14/2009 4:00:00 AM" "7/14/2009 2:00:00 PM" Nothing Nothing
Get ComAddItem of hoItems "Item 2" to h
Set ComItemNonworkingUnits of hoItems h False to "(((hour(value) >= 4 and hour(value) <= 16) or hour(value) = 2) and month(value) = 7) or ((hour(value) >= 2 and hour(value) < 10)) and month(value) = 6 or weekday(value) = 6"
Send ComAddBar of hoItems h "Task" "7/14/2009 1:00:00 AM" "7/14/2009 6:00:00 AM" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
963
|
I am programmatically select a date using the Chart.SelectDate property, but can't see why the date is not highlighted. What am I doing wrong
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComSelectLevel of hoChart to 1
Set ComSelectDate of hoChart "1/4/2001" to True
Send Destroy to hoChart
End_Procedure
|
|
962
|
How do I show a shorter line in the chart's level
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComGridLineColor to (RGB(128,128,128))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawLevelSeparator of hoChart to OLEexLevelNoLine
Set ComUnitWidth of hoChart to 24
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComAlignment of hoLevel to OLECenterAlignment
Set ComLabel of hoLevel to "<%dddd%>"
Set ComDrawTickLines of hoLevel to (OLEexLevelLowerHalf + OLEexLevelSolidLine)
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to 65536
Set ComCount of hoLevel1 to 6
Set ComDrawTickLines of hoLevel1 to (|CI$200 + OLEexLevelMiddleLine + OLEexLevelSolidLine)
Send ComDrawTickLinesFrom of hoLevel1 0 (OLEexLevelUpperHalf + OLEexLevelSolidLine)
Send Destroy to hoLevel1
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
961
|
How do I replicate the screen shot http://www.exontrol.com/images/exg2antt9.jpg
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headdark.ebn" to Nothing
Get ComAdd of hoAppearance 2 "C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\xpbsel.ebn" to Nothing
Get ComAdd of hoAppearance 3 "C:\Program Files\Exontrol\ExG2antt.NET\Sample\EBN\headligh.ebn" to Nothing
Get ComAdd of hoAppearance 4 "CP:1 0 0 1 1" to Nothing
Send Destroy to hoAppearance
Set ComBackColorHeader to |CI$4000000
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComBackColorLevelHeader of hoChart to |CI$4000000
Send Destroy to hoChart
Set ComSelBackColor to |CI$20000ff
Set ComGridLineColor to (RGB(128,128,128))
Set ComHeaderHeight to 22
Set ComSelForeColor to (RGB(0,0,0))
Set ComMarkSearchColumn to False
Set ComScrollBySingleLine to False
Set ComShowFocusRect to False
Set ComDefaultItemHeight to 48
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Group" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComDef of hoColumn OLEexCellBackColor to 50331648
Set ComLevelKey of hoColumn to 1
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Histogram" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComWidth of hoColumn1 to 18
Set ComAllowSizing of hoColumn1 to False
Set ComLevelKey of hoColumn1 to 1
Set ComPosition of hoColumn1 to 0
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "6/11/2009"
Set ComDrawGridLines of hoChart1 to OLEexAllLines
Set ComPaneWidth of hoChart1 False to 96
Set ComLevelCount of hoChart1 to 2
Set ComDrawLevelSeparator of hoChart1 to False
Variant voLevel
Get ComLevel of hoChart1 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%mmmm%> <%yyyy%>"
Set ComUnit of hoLevel to OLEexMonth
Set ComAlignment of hoLevel to OLECenterAlignment
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart1 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComFormatLabel of hoLevel1 to "weekday(dvalue)=1?value:''"
Set ComDrawTickLines of hoLevel1 to (OLEexLevelLowerHalf + OLEexLevelSolidLine)
Send ComDrawTickLinesFrom of hoLevel1 0 OLEexLevelSolidLine
Set ComAlignment of hoLevel1 to OLECenterAlignment
Send Destroy to hoLevel1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$2000000
Set ComHeight of hoBar to 18
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComHistogramColor of hoBar to |CI$1000000
Set ComHistogramType of hoBar to OLEexHistOverAllocation
Send Destroy to hoBar
Send Destroy to hoBars
Set ComHistogramVisible of hoChart1 to True
Set ComHistogramHeight of hoChart1 to 48
Set ComHistogramView of hoChart1 to OLEexHistogramCheckedItems
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Group <b>A</b>" to h
Set ComCellValueFormat of hoItems h 0 to OLEexHTML
Set ComCellMerge of hoItems h 0 to 1
Send ComAddBar of hoItems h "Task" "6/12/2009" "6/19/2009" "K1" "Requirements"
Send ComAddBar of hoItems h "Task" "6/13/2009" "6/21/2009" "K2" "Sales & Marketing"
Set ComItemBar of hoItems h "K1" OLEexBarColor to 255
Set ComItemBar of hoItems h "K2" OLEexBarColor to 255
Set ComCellState of hoItems h 0 to 1
Get ComAddItem of hoItems "Group <b>B</b>" to h
Set ComCellValueFormat of hoItems h 0 to OLEexHTML
Set ComCellMerge of hoItems h 0 to 1
Send ComAddBar of hoItems h "Task" "6/14/2009" "6/23/2009" "K1" "<b>GUI</b> Design"
Send ComAddBar of hoItems h "Task" "6/18/2009" "6/25/2009" "K2" "Class Design"
Get ComAddItem of hoItems "Group <b>C</b>" to h
Set ComCellValueFormat of hoItems h 0 to OLEexHTML
Set ComCellMerge of hoItems h 0 to 1
Send ComAddBar of hoItems h "Task" "6/12/2009" "6/19/2009" "K1" "<b>GUI</b> Coding"
Send ComAddBar of hoItems h "Task" "6/13/2009" "6/25/2009" "K2" "Design & Concept"
Set ComItemBar of hoItems h "K1" OLEexBarColor to 65280
Set ComItemBar of hoItems h "K2" OLEexBarColor to 65280
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
960
|
How can I remove all bars from the chart
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K2" Nothing
Send ComClearBars of hoItems 0
Send Destroy to hoItems
End_Procedure
|
|
959
|
How can I change the color for all bars with a specified key
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K2" Nothing
Set ComItemBar of hoItems 0 "K1" OLEexBarColor to 255
Send Destroy to hoItems
End_Procedure
|
|
958
|
Is there any automatic way to change a property for all bars with a specified key
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K2" Nothing
Set ComItemBar of hoItems 0 "K1" OLEexBarColor to 255
Send Destroy to hoItems
End_Procedure
|
|
957
|
How can I remove all bars with specified key
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K2" Nothing
Send ComRemoveBar of hoItems 0 "K1"
Send Destroy to hoItems
End_Procedure
|
|
956
|
How do I several bars with different vertical offsets
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item" to h
Set ComItemHeight of hoItems h to 62
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "T1" Nothing
Set ComItemBar of hoItems h "T1" OLEexBarOffset to -23
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "T2" Nothing
Set ComItemBar of hoItems h "T2" OLEexBarOffset to -11
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "T3" Nothing
Set ComItemBar of hoItems h "T3" OLEexBarOffset to 1
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "T4" Nothing
Set ComItemBar of hoItems h "T4" OLEexBarOffset to 13
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "T5" Nothing
Set ComItemBar of hoItems h "T5" OLEexBarOffset to 25
Send Destroy to hoItems
End_Procedure
|
|
955
|
Is there any option to show gradient bars without using EBN technology
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(255,0,0))
Set ComStartColor of hoBar1 to (RGB(0,255,0))
Set ComEndColor of hoBar1 to (RGB(255,255,0))
Set ComPattern of hoBar1 to OLEexPatternBox
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "" Nothing
Send Destroy to hoItems
End_Procedure
|
|
954
|
How can I define a bar with border and solid filling
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(255,0,0))
Set ComStartColor of hoBar1 to (RGB(255,255,0))
Set ComEndColor of hoBar1 to (RGB(255,255,0))
Set ComPattern of hoBar1 to OLEexPatternBox
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "" Nothing
Send Destroy to hoItems
End_Procedure
|
|
953
|
How can I define a bar with border and solid filling
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(255,0,0))
Set ComPattern of hoBar1 to OLEexPatternBox
Set ComHeight of hoBar1 to 18
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarBackColor to 65535
Send Destroy to hoItems
End_Procedure
|
|
952
|
How do I define a bar with solid border and filling
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackboxt.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to |CI$1000000
Set ComHeight of hoBar1 to 18
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarColor to 255
Set ComItemBar of hoItems h "" OLEexBarBackColor to 65535
Send Destroy to hoItems
End_Procedure
|
|
951
|
Can I control the units/resource/effort being allocated to a bar when displaying OverAllocation histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Effort" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 21
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 96
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 202
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (OLEexRectangularCurve + OLEexPatternDot)
Set ComHistogramType of hoBar to OLEexHistOverAllocation
Set ComHistogramCriticalValue of hoBar to 50
Set ComHistogramGridLinesColor of hoBar to (RGB(192,192,192))
Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/25/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 2
Get ComAddItem of hoItems "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/24/2005" "6/28/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 1
Get ComAddItem of hoItems "Task 3" to h1
Send ComAddBar of hoItems h1 "Task" "6/27/2005" "7/1/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 2
Get ComAddItem of hoItems "Task 4" to h1
Send ComAddBar of hoItems h1 "Task" "6/30/2005" "7/2/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
950
|
Can I control the units/resource/effort being allocated to a bar when displaying Overload histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Effort" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 21
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 96
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 128
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Set ComHistogramType of hoBar to OLEexHistOverload
Set ComHistogramCriticalValue of hoBar to 3
Set ComShowHistogramValues of hoBar to "value>3?255:1"
Set ComHistogramItems of hoBar to -11
Set ComHistogramGridLinesColor of hoBar to (RGB(192,192,192))
Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/23/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 4
Get ComAddItem of hoItems "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/24/2005" "6/26/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 3
Get ComAddItem of hoItems "Task 3" to h1
Send ComAddBar of hoItems h1 "Task" "6/27/2005" "6/29/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 2
Get ComAddItem of hoItems "Task 4" to h1
Send ComAddBar of hoItems h1 "Task" "6/30/2005" "7/2/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
949
|
How can I display double-lines curves in the histogram
Procedure OnCreate
Forward Send OnCreate
Set ComAntiAliasing to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexBezierCurve
Set ComHistogramItems of hoBar to 3
Set ComHistogramBorderColor of hoBar to (RGB(128,0,0))
Set ComHistogramColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
948
|
Is there any option to display values in the histogram using different colors
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Set ComHistogramItems of hoBar to 6
Set ComShowHistogramValues of hoBar to "value>1?255:65280"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
947
|
Is there any option to display values in the histogram using different colors
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Set ComHistogramItems of hoBar to 6
Set ComShowHistogramValues of hoBar to "value>1?255:1"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
946
|
How can I display only few values in the histogram, such as the values greater than a value
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Set ComShowHistogramValues of hoBar to "value>1"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
945
|
How can I display values in the histogram
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Set ComShowHistogramValues of hoBar to "1"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
944
|
How can I scroll the chart to find a bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 64
Send Destroy to hoChart1
Set ComDefaultItemHeight to 32
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" 1 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/2/2001" "1/4/2001" 2 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "1/2/2001" "1/4/2001" 3 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 4")) "Task" "1/2/2001" "1/4/2001" 4 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 5")) "Task" "1/2/2001" "1/4/2001" 5 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 6")) "Task" "1/2/2001" "1/4/2001" 6 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 7")) "Task" "1/2/2001" "1/4/2001" 7 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 8")) "Task" "1/2/2001" "1/4/2001" 8 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 9")) "Task" "1/2/2001" "1/4/2001" 8 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 10")) "Task" "1/2/2001" "1/4/2001" 10 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 11")) "Task" "1/2/2001" "1/4/2001" 11 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 12")) "Task" "1/2/2001" "1/4/2001" 12 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 13")) "Task" "1/2/2001" "1/4/2001" 13 Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 14")) "Task" "1/2/2001" "1/4/2001" 14 Nothing
Send Destroy to hoItems
Variant v
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComFindBar of hoItems1 14 Nothing to v
Send Destroy to hoItems1
Variant h
Move v to h
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Send ComEnsureVisibleItem of hoItems2 h
Send Destroy to hoItems2
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant vDate
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComItemBar of hoItems3 h 14 OLEexBarStart to vDate
Send Destroy to hoItems3
Send ComScrollTo of hoChart2 vDate 1
Send Destroy to hoChart2
End_Procedure
|
|
943
|
Can I change the color/marker/frame for selected bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 2 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 3 2 -3 -2" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Set ComSelBarColor of hoChart to |CI$1000000
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
Send ComAddBar of hoItems h "Task" "1/11/2002" "1/14/2002" "C" Nothing
Set ComItemBar of hoItems h "A" OLEexBarSelected to True
Set ComItemBar of hoItems h "B" OLEexBarSelected to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
942
|
Can I display a larger marker for selected bars, eventually using the EBN technology
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Set ComSelBarColor of hoChart to |CI$1000000
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
Send ComAddBar of hoItems h "Task" "1/11/2002" "1/14/2002" "C" Nothing
Set ComItemBar of hoItems h "A" OLEexBarSelected to True
Set ComItemBar of hoItems h "B" OLEexBarSelected to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
941
|
How do I change the color for the selected bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDebug to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Set ComSelBarColor of hoChart to (RGB(255,0,0))
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
Send ComAddBar of hoItems h "Task" "1/11/2002" "1/14/2002" "C" Nothing
Set ComItemBar of hoItems h "A" OLEexBarSelected to True
Set ComItemBar of hoItems h "B" OLEexBarSelected to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
940
|
How can I change the background color for child bars of a summary bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComHasLines to false
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to False
Set ComAllowLinkBars of hoChart to False
Set ComFirstVisibleDate of hoChart to "1/1/2008"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 112
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant hR1
Get ComAddItem of hoItems "Team 1" to hR1
Send ComAddBar of hoItems hR1 "Summary" "1/2/2008" "1/8/2008" "" Nothing
Set ComItemBar of hoItems hR1 "" OLEexSummaryBarBackColor to 12895428
Variant h1
Get ComInsertItem of hoItems hR1 "Member 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2008" "1/7/2008" Nothing Nothing
Send ComDefineSummaryBars of hoItems hR1 "" h1 ""
Get ComInsertItem of hoItems hR1 "Member 2" to h1
Send ComAddBar of hoItems h1 "Task" "1/4/2008" "1/9/2008" Nothing Nothing
Send ComDefineSummaryBars of hoItems hR1 "" h1 ""
Get ComInsertItem of hoItems hR1 "Member 3" to h1
Send ComAddBar of hoItems h1 "Task" "1/5/2008" "1/10/2008" Nothing Nothing
Send ComDefineSummaryBars of hoItems hR1 "" h1 ""
Set ComExpandItem of hoItems hR1 to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
939
|
How can I allow resizing the bar only in the right part of the bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarCanResize to 2
Send Destroy to hoItems
End_Procedure
|
|
938
|
How can I allow resizing the bar only in the left part of the bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarCanResize to 1
Send Destroy to hoItems
End_Procedure
|
|
937
|
How can I show the links that starts from selected bar being more visible, while the rest being transparent
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 64
Set ComShowLinksWidth of hoChart OLEexShowLinksStartFrom to 2
Set ComShowLinksStyle of hoChart OLEexShowLinksStartFrom to OLEexLinkDot
Set ComShowLinksColor of hoChart OLEexShowLinksEndTo to (RGB(200,200,200))
Set ComShowLinksColor of hoChart OLEexShowUnselectedLinks to (RGB(200,200,200))
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/23/2006" Nothing Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "9/25/2006" "9/27/2006" Nothing Nothing
Set ComItemBar of hoItems h2 "" OLEexBarSelected to True
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Set ComLink of hoItems "L1" OLEexLinkText to "L1"
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Send ComAddBar of hoItems h3 "Task" "9/29/2006" "10/2/2006" Nothing Nothing
Send ComAddLink of hoItems "L2" h2 "" h3 ""
Set ComLink of hoItems "L2" OLEexLinkText to "L2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
936
|
How can I show only the links that starts from selected bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Set ComOnResizeControl to OLEexResizeChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 64
Set ComShowLinksColor of hoChart OLEexShowLinksEndTo to (ComBackColor(hoChart))
Set ComShowLinksColor of hoChart OLEexShowUnselectedLinks to (ComBackColor(hoChart))
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Set ComCellValue of hoItems h1 1 to "9/21/2006"
Set ComCellValue of hoItems h1 2 to "9/24/2006"
Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) Nothing Nothing
Variant h2
Get ComInsertItem of hoItems h "Task 2" to h2
Set ComCellValue of hoItems h2 1 to "9/25/2006"
Set ComCellValue of hoItems h2 2 to "9/28/2006"
Send ComAddBar of hoItems h2 "Task" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) Nothing Nothing
Set ComItemBar of hoItems h2 "" OLEexBarSelected to True
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Variant h3
Get ComInsertItem of hoItems h "Task 3" to h3
Set ComCellValue of hoItems h3 1 to "9/29/2006"
Set ComCellValue of hoItems h3 2 to "10/2/2006"
Send ComAddBar of hoItems h3 "Task" (ComCellValue(hoItems,h3,1)) (ComCellValue(hoItems,h3,2)) Nothing Nothing
Send ComAddLink of hoItems "L2" h2 "" h3 ""
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
935
|
How can I hide links that are not related to selected bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Set ComOnResizeControl to OLEexResizeChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComPaneWidth of hoChart False to 64
Set ComShowLinksColor of hoChart OLEexShowUnselectedLinks to (ComBackColor(hoChart))
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Set ComCellValue of hoItems h1 1 to "9/21/2006"
Set ComCellValue of hoItems h1 2 to "9/24/2006"
Send ComAddBar of hoItems h1 "Task" (ComCellValue(hoItems,h1,1)) (ComCellValue(hoItems,h1,2)) Nothing Nothing
Set ComItemBar of hoItems h1 "" OLEexBarSelected to True
Variant h2
Get ComInsertItem of hoItems h "Task 2" to h2
Set ComCellValue of hoItems h2 1 to "9/25/2006"
Set ComCellValue of hoItems h2 2 to "9/28/2006"
Send ComAddBar of hoItems h2 "Task" (ComCellValue(hoItems,h2,1)) (ComCellValue(hoItems,h2,2)) Nothing Nothing
Send ComAddLink of hoItems "L1" h1 "" h2 ""
Variant h3
Get ComInsertItem of hoItems h "Task 3" to h3
Set ComCellValue of hoItems h3 1 to "9/29/2006"
Set ComCellValue of hoItems h3 2 to "10/2/2006"
Send ComAddBar of hoItems h3 "Task" (ComCellValue(hoItems,h3,1)) (ComCellValue(hoItems,h3,2)) Nothing Nothing
Send ComAddLink of hoItems "L2" h2 "" h3 ""
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
934
|
How can I show the direction of the link using EBN files
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 -1 -1 1 1" to Nothing
Get ComAdd of hoAppearance 3 "CP:1 -2 -2 2 2" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "B1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/13/2001" "B2" Nothing
Send ComAddLink of hoItems "L1" h1 "B1" h2 "B2"
Set ComLink of hoItems "L1" OLEexLinkArrowColor to 16777216
Get ComAddItem of hoItems "Task 3" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/13/2001" "B3" Nothing
Send ComAddLink of hoItems "L2" h1 "B1" h2 "B3"
Set ComLink of hoItems "L2" OLEexLinkArrowColor to 33554432
Get ComAddItem of hoItems "Task 4" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/13/2001" "B5" Nothing
Send ComAddLink of hoItems "L3" h1 "B1" h2 "B5"
Set ComLink of hoItems "L3" OLEexLinkArrowColor to 50331648
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
933
|
How can I show round links
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" "B1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/5/2001" "1/13/2001" "B2" Nothing
Send ComAddLink of hoItems "L1" (ComFindItem(hoItems,"Item 1",0,Nothing)) "B1" (ComFindItem(hoItems,"Item 2",0,Nothing)) "B2"
Set ComLink of hoItems "L1" OLEexLinkShowRound to True
Send Destroy to hoItems
End_Procedure
|
|
932
|
How can I change the color to display the arrow of the link
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" "B1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/6/2001" "1/14/2001" "B2" Nothing
Send ComAddLink of hoItems "L1" (ComFindItem(hoItems,"Item 1",0,Nothing)) "B1" (ComFindItem(hoItems,"Item 2",0,Nothing)) "B2"
Set ComLink of hoItems "L1" OLEexLinkArrowColor to 255
Send Destroy to hoItems
End_Procedure
|
|
931
|
I use UnitScale: exHour and I want to show only from 9 to 18 hour. The idea is to show only the working part of a day. Is this possible
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
Set ComBackColorLevelHeader of hoChart to (RGB(255,255,255))
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<b><%dddd%></b> <%d%>"
Set ComAlignment of hoLevel to OLECenterAlignment
Set ComDrawTickLines of hoLevel to OLEexLevelNoLine
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to 65536
Set ComDrawTickLines of hoLevel1 to (OLEexLevelMiddleLine + OLEexLevelDotLine)
Send ComDrawTickLinesFrom of hoLevel1 0 OLEexLevelDotLine
Send Destroy to hoLevel1
Set ComNonworkingHours of hoChart to 16253439
Set ComShowNonworkingUnits of hoChart to False
Set ComShowNonworkingDates of hoChart to False
Set ComShowNonworkingHours of hoChart to False
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
930
|
Can I display tick lines from other level to my base level so time units gets separated more clearly
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawLevelSeparator of hoChart to OLEexLevelNoLine
Set ComUnitWidth of hoChart to 24
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComAlignment of hoLevel to OLECenterAlignment
Set ComLabel of hoLevel to "<%dddd%>"
Set ComDrawTickLines of hoLevel to (OLEexLevelLowerHalf + OLEexLevelSolidLine)
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to 65536
Set ComCount of hoLevel1 to 6
Set ComDrawTickLines of hoLevel1 to (OLEexLevelMiddleLine + OLEexLevelSolidLine)
Send ComDrawTickLinesFrom of hoLevel1 0 OLEexLevelSolidLine
Send Destroy to hoLevel1
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
929
|
Is there any property to change the style of the tick lines being shown in the chart
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComUnitWidth of hoChart to 24
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComAlignment of hoLevel to OLECenterAlignment
Set ComLabel of hoLevel to "<%dddd%>"
Set ComDrawTickLines of hoLevel to OLEexLevelSolidLine
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to 65536
Set ComCount of hoLevel1 to 6
Set ComDrawTickLines of hoLevel1 to (OLEexLevelUpperHalf + OLEexLevelSolidLine)
Send Destroy to hoLevel1
Set ComDrawLevelSeparator of hoChart to OLEexLevelSolidLine
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
928
|
Is there any property to change the style of the tick lines being shown in the chart
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Set ComDrawLevelSeparator of hoChart to OLEexLevelSolidLine
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%dddd%>"
Set ComDrawTickLines of hoLevel to OLEexLevelSolidLine
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to 65536
Set ComCount of hoLevel1 to 6
Set ComDrawTickLines of hoLevel1 to OLEexLevelSolidLine
Send Destroy to hoLevel1
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
927
|
How can I show the levels based on the base level so tick lines aligns better
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAdjustLevelsToBase of hoChart to True
Set ComUnitWidth of hoChart to 24
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%dddd%>"
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to 65536
Set ComCount of hoLevel1 to 5
Send Destroy to hoLevel1
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
926
|
How can I show only working hours in other words only the working part of the day
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowSelectDate of hoChart to False
Set ComMarkTodayColor of hoChart to (ComBackColor(hoChart))
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<b><%dddd%></b> <%d%>"
Set ComAlignment of hoLevel to OLECenterAlignment
Set ComDrawTickLines of hoLevel to False
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to 65536
Set ComReplaceLabel of hoLevel1 "09" to "<fgcolor=FF0000><b><font ;10>9</font></b></fgcolor>"
Send Destroy to hoLevel1
Set ComNonworkingHours of hoChart to 16253439
Set ComShowNonworkingUnits of hoChart to False
Set ComShowNonworkingDates of hoChart to False
Set ComShowNonworkingHours of hoChart to False
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
925
|
How can I specify the effort for bars when displaying the overload histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 52
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Set ComHistogramType of hoBar to OLEexHistOverload
Set ComHistogramItems of hoBar to -6
Set ComHistogramGridLinesColor of hoBar to (RGB(192,192,192))
Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/23/2005" "" "4"
Set ComItemBar of hoItems h1 "" OLEexBarEffort to 4
Get ComAddItem of hoItems "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/24/2005" "6/26/2005" "" 3
Set ComItemBar of hoItems h1 "" OLEexBarEffort to 3
Get ComAddItem of hoItems "Task 3" to h1
Send ComAddBar of hoItems h1 "Task" "6/27/2005" "6/29/2005" "" 2
Set ComItemBar of hoItems h1 "" OLEexBarEffort to 2
Get ComAddItem of hoItems "Task 4" to h1
Send ComAddBar of hoItems h1 "Task" "6/30/2005" "7/2/2005" "" 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
924
|
How can I display the cumulative histogram and showing the bars that generated it using different colors
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Set ComPaneWidth of hoChart False to 128
Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternSolid
Set ComHistogramType of hoBar to OLEexHistCumulative
Set ComHistogramCumulativeOriginalColorBars of hoBar to False
Set ComHistogramItems of hoBar to 6
Set ComHistogramRulerLinesColor of hoBar to (RGB(128,0,0))
Set ComHistogramBorderColor of hoBar to (RGB(1,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project 1" to h
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 3")) "Task" "1/4/2001" "1/6/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 4")) "Task" "1/2/2001" "1/8/2001" Nothing Nothing
Set ComCellState of hoItems (ComItemByIndex(hoItems,1)) 0 to 1
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
923
|
How can I show the cumulative histogram for my bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Set ComPaneWidth of hoChart False to 128
Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternSolid
Set ComHistogramType of hoBar to OLEexHistCumulative
Set ComHistogramItems of hoBar to 6
Set ComHistogramRulerLinesColor of hoBar to (RGB(128,0,0))
Set ComHistogramBorderColor of hoBar to (RGB(1,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project 1" to h
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 3")) "Task" "1/4/2001" "1/6/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 4")) "Task" "1/2/2001" "1/8/2001" Nothing Nothing
Set ComCellState of hoItems (ComItemByIndex(hoItems,1)) 0 to 1
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
922
|
How can I show some grid lines or ruler in the histogram
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Set ComPaneWidth of hoChart False to 78
Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Set ComHistogramItems of hoBar to 6
Set ComHistogramRulerLinesColor of hoBar to (RGB(128,0,0))
Set ComHistogramGridLinesColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project 1" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Set ComCellState of hoItems h 0 to 1
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
921
|
Is there any property to show some grid lines in the histogram
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Set ComPaneWidth of hoChart False to 78
Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Set ComHistogramItems of hoBar to 6
Set ComHistogramGridLinesColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project 1" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Set ComCellState of hoItems h 0 to 1
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
920
|
How can I specify a fixed number of bars/items being shown in the histogram
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Set ComPaneWidth of hoChart False to 78
Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Set ComHistogramCriticalValue of hoBar to 3
Set ComHistogramItems of hoBar to -6
Set ComHistogramRulerLinesColor of hoBar to (RGB(1,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project 1" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Set ComCellState of hoItems h 0 to 1
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Project 2" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Set ComCellState of hoItems h 0 to 1
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/4/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/6/2001" "1/8/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Project 3" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Set ComCellState of hoItems h 0 to 1
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Project 4" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Set ComCellState of hoItems h 0 to 1
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/4/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/6/2001" "1/8/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
919
|
Is there any option to specify a minimum number of bars/items displayed in the histogram
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Set ComPaneWidth of hoChart False to 78
Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Set ComHistogramItems of hoBar to 6
Set ComHistogramGridLinesColor of hoBar to (RGB(1,0,0))
Set ComHistogramRulerLinesColor of hoBar to (RGB(1,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project 1" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Set ComCellState of hoItems h 0 to 1
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Project 2" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Set ComCellState of hoItems h 0 to 1
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/4/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/6/2001" "1/8/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
918
|
How can I show the histogram without grouping the bars based on their parents
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project 1" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Set ComCellState of hoItems h 0 to 1
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Project 2" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Set ComCellState of hoItems h 0 to 1
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/4/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/6/2001" "1/8/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
917
|
How can I show the histogram for checked item and all recursively child items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 128
Set ComHistogramView of hoChart to (OLEexHistogramRecLeafItems + OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Set ComCellState of hoItems h 0 to 1
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/5/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Get ComInsertItem of hoItems h "SubProject" to h
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/5/2001" "1/8/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
916
|
How can I show the histogram for checked item and its child items
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Set ComHistogramView of hoChart to (OLEexHistogramLeafItems + OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project" to h
Set ComCellHasCheckBox of hoItems h 0 to True
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComInsertItem(hoItems,h,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
915
|
How can I show the histogram for all items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSingleSel to False
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
914
|
How can I prevent selecting a new item when clicking the chart area so my selection is shown in the histogram
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComSelectOnClick of hoChart to False
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Set ComHistogramView of hoChart to OLEexHistogramSelectedItems
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,0)) to True
Send Destroy to hoItems
End_Procedure
|
|
913
|
How can I show bars in the histogram for selected items only
Procedure OnCreate
Forward Send OnCreate
Set ComSingleSel to False
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Set ComHistogramView of hoChart to OLEexHistogramSelectedItems
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,0)) to True
Send Destroy to hoItems
End_Procedure
|
|
912
|
How can I change the color and size for the curve in the histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 68
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (|CI$100 + OLEexPatternDot)
Set ComHistogramBorderColor of hoBar to (RGB(0,255,0))
Set ComHistogramBorderSize of hoBar to 5
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/25/2005" 1 1
Send ComAddBar of hoItems h1 "Task" "6/23/2005" "6/28/2005" 2 2
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
911
|
How can I change the color for the frame in the histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 68
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (|CI$100 + OLEexPatternShadow)
Set ComHistogramItems of hoBar to 5
Set ComHistogramBorderColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/25/2005" 1 1
Send ComAddBar of hoItems h1 "Task" "6/23/2005" "6/28/2005" 2 2
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
910
|
How can I force the histogram for a bar being shown all the time
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Tasks" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 68
Set ComHistogramView of hoChart to (OLEexHistogramUnlockedItems + OLEexHistogramCheckedItems)
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "H" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(0,255,0))
Set ComHistogramPattern of hoBar to |CI$100
Set ComHistogramItems of hoBar to 5
Set ComHistogramColor of hoBar to (ComColor(hoBar))
Set ComHistogramGridLinesColor of hoBar to (RGB(128,128,128))
Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComItem of hoBars1 "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComHistogramCriticalColor of hoBar1 to (RGB(0,0,128))
Set ComHistogramPattern of hoBar1 to (ComPattern(hoBar1))
Set ComHistogramItems of hoBar1 to 5
Set ComHistogramGridLinesColor of hoBar1 to (RGB(128,128,128))
Set ComHistogramRulerLinesColor of hoBar1 to (RGB(0,0,1))
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Hidden" to h1
Send ComAddBar of hoItems h1 "H" "6/23/2005" "6/28/2005" 1 Nothing
Send ComAddBar of hoItems h1 "H" "6/24/2005" "6/26/2005" 2 Nothing
Set ComCellState of hoItems h1 0 to 1
Set ComItemHeight of hoItems h1 to 0
Set ComSelectableItem of hoItems h1 to False
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/25/2005" 1 Nothing
Set ComCellState of hoItems h1 0 to 1
Get ComAddItem of hoItems "Task 2" to h1
Set ComCellState of hoItems h1 0 to 1
Send ComAddBar of hoItems h1 "Task" "6/24/2005" "7/1/2005" 1 Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
909
|
How can I remove a bar type from the histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 40
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramCriticalColor of hoBar to (RGB(0,0,128))
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComCopy of hoBars1 "Task" "Green" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(0,255,0))
Set ComHistogramPattern of hoBar1 to (ComPattern(hoBar1))
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Green" "6/22/2005" "6/26/2005" 0 Nothing
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/25/2005" 1 Nothing
Set ComItemBar of hoItems h1 1 OLEexBarOffset to 3
Get ComAddItem of hoItems "Task 2" to h1
Send ComAddBar of hoItems h1 "Green" "6/28/2005" "6/30/2005" 0 Nothing
Send ComAddBar of hoItems h1 "Task" "6/27/2005" "7/1/2005" 1 Nothing
Set ComItemBar of hoItems h1 1 OLEexBarOffset to 3
Send Destroy to hoItems
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars2
Get ComBars of hoChart1 to voBars2
Handle hoBars2
Get Create (RefClass(cComBars)) to hoBars2
Set pvComObject of hoBars2 to voBars2
Variant voBar2
Get ComItem of hoBars2 "Green" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Variant voBar3
Get ComItem of hoBar2 "Green" to voBar3
Handle hoBar3
Get Create (RefClass(cComBar)) to hoBar3
Set pvComObject of hoBar3 to voBar3
Set ComHistogramColor of hoBar3 to (ComColor(hoBar3))
Set ComHistogramPattern of hoBar3 to OLEexPatternEmpty
Send Destroy to hoBar3
Send Destroy to hoBar2
Send Destroy to hoBars2
Send Destroy to hoChart1
Send ComEndUpdate
End_Procedure
|
|
908
|
How can I show the two buttons in the vertical splitter but still resizes the chart when the control gets resized
Procedure OnCreate
Forward Send OnCreate
Set ComOnResizeControl to (OLEexSplitterShowButtons + OLEexResizeChart)
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 96
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
End_Procedure
|
|
907
|
I have seen a screen shot on your web page that shows two buttons on the vertical scroll bar. How can I show them
Procedure OnCreate
Forward Send OnCreate
Set ComOnResizeControl to OLEexSplitterShowButtons
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 96
Send Destroy to hoChart
End_Procedure
|
|
906
|
How can I disable selecting a new item once the user clicks the chart area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComSingleSel to False
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComSelectOnClick of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 40
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Set ComHistogramView of hoChart to OLEexHistogramSelectedItems
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/22/2005" "6/26/2005" 0 Nothing
Set ComSelectItem of hoItems h1 to True
Get ComAddItem of hoItems "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/24/2005" "6/30/2005" 0 Nothing
Set ComSelectItem of hoItems h1 to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
905
|
Is there any option to display the chart's header in the bottom side of the histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 40
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Set ComHistogramHeight of hoChart to 96
Set ComHistogramHeaderVisible of hoChart to True
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(0,0,255))
Set ComOverlaidType of hoBar to OLEexOverlaidBarsOffset
Set ComOverlaidGroup of hoBar to "Task2"
Set ComHistogramCriticalColor of hoBar to (RGB(0,0,128))
Set ComHistogramPattern of hoBar to OLEexBezierCurve
Set ComHistogramType of hoBar to OLEexHistOverAllocation
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComCopy of hoBars1 "Task" "Task2" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(0,255,0))
Set ComOverlaidType of hoBar1 to OLEexOverlaidBarsOffset
Set ComOverlaidGroup of hoBar1 to "Task"
Set ComHistogramCriticalColor of hoBar1 to (RGB(0,128,0))
Set ComHistogramPattern of hoBar1 to OLEexBezierCurve
Set ComHistogramType of hoBar1 to OLEexHistOverAllocation
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task2" "6/22/2005" "6/26/2005" 0 Nothing
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/25/2005" 1 Nothing
Set ComItemBar of hoItems h1 0 OLEexBarEffort to 3
Set ComItemBar of hoItems h1 1 OLEexBarEffort to 4
Get ComAddItem of hoItems "Task 2" to h1
Send ComAddBar of hoItems h1 "Task2" "6/28/2005" "6/30/2005" 0 Nothing
Send ComAddBar of hoItems h1 "Task" "6/27/2005" "7/1/2005" 1 Nothing
Set ComItemBar of hoItems h1 0 OLEexBarEffort to 4
Set ComItemBar of hoItems h1 1 OLEexBarEffort to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
904
|
How can I display the child bars as soon as an item gets collapsed
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComShowCollapsedBars of hoChart to True
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Project 1" to h
Variant h1
Get ComInsertItem of hoItems h "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/23/2006" "A" Nothing
Variant h2
Get ComInsertItem of hoItems h "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "9/24/2006" "9/26/2006" "B" Nothing
Variant h3
Get ComInsertItem of hoItems h "Task 3" to h3
Send ComAddBar of hoItems h3 "Task" "9/27/2006" "9/29/2006" "C" Nothing
Get ComAddItem of hoItems "Project 2" to h
Get ComInsertItem of hoItems h "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "9/21/2006" "9/23/2006" "A" Nothing
Get ComInsertItem of hoItems h "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "9/24/2006" "9/26/2006" "B" Nothing
Get ComInsertItem of hoItems h "Task 3" to h3
Send ComAddBar of hoItems h3 "Task" "9/27/2006" "9/29/2006" "C" Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
903
|
What exBarEffort property represents
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 40
Set ComFirstVisibleDate of hoChart to "6/9/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Set ComHistogramHeight of hoChart to 164
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to |CI$100
Set ComHistogramType of hoBar to OLEexHistOverAllocation
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/10/2005" "6/11/2005" "1/1=<b>100%"
Set ComItemBar of hoItems h1 OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/12/2005" "6/14/2005" "1/2=<b>50%"
Set ComItemBar of hoItems h1 OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task 3" to h1
Send ComAddBar of hoItems h1 "Task" "6/15/2005" "6/18/2005" "1/3=<b>33%"
Set ComItemBar of hoItems h1 OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task 4" to h1
Send ComAddBar of hoItems h1 "Task" "6/19/2005" "6/23/2005" "1/4=<b>25%"
Set ComItemBar of hoItems h1 OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task 5" to h1
Send ComAddBar of hoItems h1 "Task" "6/24/2005" "6/29/2005" "1/5=<b>20%"
Set ComItemBar of hoItems h1 OLEexBarHAlignCaption to 18
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
902
|
Can I display multiple curves in the histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 40
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Set ComHistogramHeight of hoChart to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(0,0,255))
Set ComOverlaidType of hoBar to OLEexOverlaidBarsOffset
Set ComOverlaidGroup of hoBar to "Task2"
Set ComHistogramCriticalColor of hoBar to (RGB(0,0,128))
Set ComHistogramPattern of hoBar to OLEexBezierCurve
Set ComHistogramType of hoBar to OLEexHistOverAllocation
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComCopy of hoBars1 "Task" "Task2" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(0,255,0))
Set ComOverlaidType of hoBar1 to OLEexOverlaidBarsOffset
Set ComOverlaidGroup of hoBar1 to "Task"
Set ComHistogramCriticalColor of hoBar1 to (RGB(0,128,0))
Set ComHistogramPattern of hoBar1 to OLEexBezierCurve
Set ComHistogramType of hoBar1 to OLEexHistOverAllocation
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task2" "6/22/2005" "6/26/2005" 0 Nothing
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/25/2005" 1 Nothing
Set ComItemBar of hoItems h1 0 OLEexBarEffort to 3
Set ComItemBar of hoItems h1 1 OLEexBarEffort to 4
Get ComAddItem of hoItems "Task 2" to h1
Send ComAddBar of hoItems h1 "Task2" "6/28/2005" "6/30/2005" 0 Nothing
Send ComAddBar of hoItems h1 "Task" "6/27/2005" "7/1/2005" 1 Nothing
Set ComItemBar of hoItems h1 0 OLEexBarEffort to 4
Set ComItemBar of hoItems h1 1 OLEexBarEffort to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
901
|
How can I use the exBarEffort property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 40
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramCriticalColor of hoBar to (RGB(255,0,0))
Set ComHistogramPattern of hoBar to OLEexBezierCurve
Set ComHistogramType of hoBar to OLEexHistOverAllocation
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/25/2005" Nothing Nothing
Set ComItemBar of hoItems h1 "" OLEexBarEffort to 4
Get ComAddItem of hoItems "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/27/2005" "7/1/2005" Nothing Nothing
Set ComItemBar of hoItems h1 "" OLEexBarEffort to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|